home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / pod / splitpod < prev   
Text File  |  1998-07-19  |  1KB  |  61 lines
  1. #!/usr/bin/perl
  2.  
  3. use lib '../lib';  # If you haven't installed perl yet.
  4. use Pod::Functions;
  5.  
  6. local $/ = '';
  7.  
  8. $cur = '';
  9. while (<>) {
  10.  
  11.     next unless /^=(?!cut)/ .. /^=cut/;
  12.  
  13.     if (s/=item (\S+)/$1/) {
  14.     #$cur = "POSIX::" . $1;
  15.     $next{$cur} = $1;
  16.     $cur = $1;
  17.     $syn{$cur} .= $_;
  18.     next;
  19.     } else { 
  20.     #s,L</,L<POSIX/,g;
  21.     s,L</,L<perlfunc/,g;
  22.     push @{$pod{$cur}}, $_ if $cur;
  23.     }
  24. } 
  25.  
  26. for $f ( keys %syn ) {
  27.     next unless $Type{$f};
  28.     $flavor = $Flavor{$f};
  29.     $orig = $f;
  30.     ($name = $f) =~ s/\W//g;
  31.  
  32.     # deal with several functions sharing a description
  33.     $func = $orig;
  34.     $func = $next{$func} until $pod{$func};
  35.     my $body = join "", @{$pod{$func}};
  36.  
  37.     # deal with unbalanced =over and =back cause by the split
  38.     my $has_over = $body =~ /^=over/;
  39.     my $has_back = $body =~ /^=back/;
  40.     $body =~ s/^=over\s*//m if $has_over and !$has_back;
  41.     $body =~ s/^=back\s*//m if $has_back and !$has_over;
  42.     open (POD, "> $name.pod") || die "can't open $name.pod: $!";
  43.     print POD <<EOF;
  44. =head1 NAME
  45.  
  46. $orig - $flavor
  47.  
  48. =head1 SYNOPSIS
  49.  
  50. $syn{$orig}
  51.  
  52. =head1 DESCRIPTION
  53.  
  54. $body
  55.  
  56. EOF
  57.  
  58.     close POD;
  59.  
  60. } 
  61.